(delete-frame): Don't use delete-frame as event name.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 1c122889ba1809e28bcd489e880ae5f0ff99d551..de310b934501b3bc5fb1b8516697a41a2dcf3538 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -100,7 +100,9 @@
 
 (if (fboundp 'delete-frame)
     (progn
-      (define-key menu-bar-files-menu [delete-frame]
+      ;; Don't use delete-frame as event name
+      ;; because that is a special event.
+      (define-key menu-bar-files-menu [delete-this-frame]
        '("Delete Frame" . delete-frame))
       (define-key menu-bar-files-menu [make-frame-on-display]
        '("Open New Display..." . make-frame-on-display))